Sub ̵( As MSForms.ListBox, _
             ̵ As MSForms.ListBox, _
             Optional ü̵ As Boolean = True)

    Dim i As Integer
    Dim ̵() As Integer, Ǽ As Integer
    
    If ü̵ = True Then
        
        For i = 0 To .ListCount - 1
            ̵.AddItem .List(i, 0)
        Next
        
        .Clear
                
    Else
    
        For i = 0 To .ListCount - 1
        
            If .Selected(i) = True Then
                
                ̵.AddItem .List(i, 0)
                .Selected(i) = False
                ReDim Preserve ̵(Ǽ)
                ̵(Ǽ) = i
                Ǽ = Ǽ + 1
            
            End If
        
        Next
        
        If Ǽ > 0 Then
            
            For i = UBound(̵) To 0 Step -1
                .RemoveItem ̵(i)
            Next
        
        End If
    
    End If
    
End Sub
